home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / gs_pdfwr.ps < prev    next >
Encoding:
Text File  |  1997-05-31  |  10.6 KB  |  352 lines
  1. %    Copyright (C) 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. %
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % gs_pdfwr.ps
  19. % PDF writer additions to systemdict.
  20.  
  21. % This file should be included iff the pdfwrite "device" is included
  22. % in the executable.
  23.  
  24. % Redefine pdfmark to pass the data to the driver.
  25. % We use a pseudo-parameter named /pdfmark whose value is an array:
  26. %    key1 value1 ... CTM /type
  27. /.pdf===dict mark
  28.   /arraytype
  29.    { dup xcheck { ({) (}) } { ([) (]) } ifelse
  30.         % Stack: file obj left right
  31.       4 1 roll 2 index exch writestring () exch
  32.        { exch 2 index exch writestring
  33.      1 index exch pdfmark===only ( )
  34.        }
  35.       forall pop exch writestring
  36.    } bind
  37.   /packedarraytype 1 index
  38.   /dicttype
  39.    { 1 index (<<\n) writestring
  40.       { 2 index 3 -1 roll pdfmark===only 1 index ( ) writestring
  41.     1 index exch pdfmark===only dup (\n) writestring
  42.       }
  43.      forall (>>) writestring
  44.    } bind
  45. .dicttomark readonly def
  46. /pdfmark===only        % <file> <obj> pdfmark===only -
  47.  { .pdf===dict 1 index type .knownget { exec } { write==only } ifelse
  48.  } bind def
  49. /.pdfcvs        % <obj> .pdfcvs <string>
  50.  {        % We can't handle long values yet.
  51.    =string /NullEncode filter dup 2 index pdfmark===only
  52.    dup (\n\000) writestring closefile pop
  53.    =string (\n\000) search
  54.     { dup length string copy exch pop exch pop }
  55.     {        % The converted representation didn't fit.  Punt.
  56.       pop (???)
  57.     }
  58.    ifelse
  59.  } bind def
  60. /.pdfputparams        % <paramarray> <paramname> .pdfputparams <result...>
  61.  { currentdevice null false mark 6 -2 roll exch
  62.         % Don't allow the page device to get cleared....
  63.      {.putdeviceparams} 0 get .currentpagedevice pop {.setpagedevice} 0 get
  64.    3 array astore cvx exec
  65.  } bind def
  66. /pdfmark        % -mark- <key> <value> ... <markname> pdfmark -
  67.  { counttomark 1 add copy
  68.    matrix currentmatrix .pdfcvs exch ]
  69.    1 2 2 index length 3 sub { 2 copy 2 copy get .pdfcvs put pop } for
  70.    /pdfmark .pdfputparams
  71.    type /booleantype ne { cleartomark } if cleartomark
  72.  } odef
  73. userdict /pdfmark .undef
  74.  
  75. % Define setdistillerparams / currentdistillerparams.
  76. % Distiller parameters are currently treated as device parameters.
  77. /.distillerparamkeys mark
  78.         % General parameters
  79.   /ASCII85EncodePages { }
  80.   /AutoRotatePages { }
  81.   /CompatibilityLevel { }
  82.   /CompressPages { }
  83.   /CoreDistVersion { }
  84.   /DoThumbnails { }
  85.   /ImageMemory { }
  86.   /LZWEncodePages { }
  87.   /PreserveHalftoneInfo { }
  88.   /PreserveOPIComments { }
  89.   /PreserveOverprintSettings { }
  90.   /TransferFunctionInfo { }
  91.   /UCRandBGInfo { }
  92.   /UseFlateCompression { }
  93.         % Color sampled image parameters
  94.   /ColorACSDict { }
  95.   /AntiAliasColorImages { }
  96.   /AutoFilterColorImages { }
  97.   /ColorImageDepth { }
  98.   /ColorImageDict { }
  99.   /DownsampleColorImages { }
  100.   /ColorImageDownsampleType { }
  101.   /EncodeColorImages { }
  102.   /ColorImageFilter { }
  103.   /ColorImageResolution { }
  104.   /ColorConversionStrategy { }
  105.   /ConvertCMYKImagesToRGB { }
  106.   /ConvertImagesToIndexed { }
  107.         % Grayscale sampled image parameters
  108.   /GrayACSDict { }
  109.   /AntiAliasGrayImages { }
  110.   /AutoFilterGrayImages { }
  111.   /GrayImageDepth { }
  112.   /GrayImageDict { }
  113.   /DownsampleGrayImages { }
  114.   /GrayImageDownsampleType { }
  115.   /EncodeGrayImages { }
  116.   /GrayImageFilter { }
  117.   /GrayImageResolution { }
  118.         % Monochrome sampled image parameters
  119.   /AntiAliasMonoImages { }
  120.   /MonoImageDepth { }
  121.   /MonoImageDict { }
  122.   /DownsampleMonoImages { }
  123.   /MonoImageDownsampleType { }
  124.   /EncodeMonoImages { }
  125.   /MonoImageFilter { }
  126.   /MonoImageResolution { }
  127.         % Font embedding parameters
  128.   /AlwaysEmbed
  129.    { dup length 0 gt
  130.       { dup 0 get false eq
  131.          { dup length 1 sub 1 exch getinterval exch pop /~AlwaysEmbed exch
  132.          } if
  133.       } if
  134.    }
  135.   /NeverEmbed
  136.    { dup length 0 gt
  137.       { dup 0 get false eq
  138.          { dup length 1 sub 1 exch getinterval exch pop /~NeverEmbed exch
  139.          } if
  140.       } if
  141.    }
  142.   /EmbedAllFonts { }
  143.   /SubsetFonts { }
  144.   /MaxSubsetPct { }
  145. .dicttomark readonly def
  146. /.distillerdevice
  147.  { currentdevice .devicename /pdfwrite eq
  148.     { currentdevice }
  149.     { /pdfwrite finddevice }
  150.    ifelse
  151.  } bind def
  152. /setdistillerparams        % <dict> setdistillerparams -
  153.  { .distillerdevice null false mark 4 index
  154.     { //.distillerparamkeys 2 index .knownget { exec } { pop pop } ifelse }
  155.    forall .putdeviceparams
  156.    type /booleantype eq { pop } { cleartomark pop pop pop } ifelse pop
  157.  } odef
  158. /currentdistillerparams        % - currentdistillerparams <dict>
  159.  { .distillerdevice //.distillerparamkeys .getdeviceparams .dicttomark
  160.  } odef
  161.  
  162. % Patch the 'show' operators to pass the data to the device.
  163. % We use a pseudo-parameter named /show whose value is a dictionary:
  164. %    /String (str)
  165. %    /Values [cx cy char ax ay px py]
  166. %    /Matrix [xx xy yx yy tx ty]
  167. %    /FontName /fontname
  168. %    /Encoding [e0 .. e255]
  169. %    /BaseEncoding [e0 ... e255]
  170. % We also fill an empty path in order to get the clipping region and
  171. % current color set properly.  THIS IS A BIG HACK.
  172. /.pdfknownfonts mark
  173.   /Courier null
  174.   /Courier-Bold null
  175.   /Courier-Oblique null
  176.   /Courier-BoldOblique null
  177.   /Helvetica null
  178.   /Helvetica-Bold null
  179.   /Helvetica-Oblique null
  180.   /Helvetica-BoldOblique null
  181.   /Symbol null
  182.   /Times-Roman null
  183.   /Times-Bold null
  184.   /Times-Italic null
  185.   /Times-BoldItalic null
  186.   /ZapfDingbats null
  187. .dicttomark readonly def
  188. .currentglobal false .setglobal
  189. /.pdfknownids 50 dict def
  190. .setglobal
  191. /.findorigfont {    % <font> .findorigfont <origfont>
  192.             % Check for a known font with the same name,
  193.             % or one of the 14 known names,
  194.             % and the same UniqueID.
  195.   dup /UniqueID .knownget {
  196.     .pdfknownids 1 index .knownget {
  197.       exch pop dup null ne { true } { pop false } ifelse
  198.     } {            % We haven't looked up the UniqueID yet.
  199.             % Register the UniqueIDs of all fonts.
  200.       .FontDirectory {
  201.     exch pop dup /UniqueID .knownget {
  202.             % Stack: font uniqueid somefont somefontid
  203.       exch .pdfknownids 3 1 roll put
  204.     } {
  205.       pop
  206.     } ifelse
  207.       } forall
  208.             % Register the UniqueIDs of the 14 built-in fonts,
  209.             % to make sure they override any other fonts
  210.             % with the same UniqueIDs.
  211.       .pdfknownfonts {
  212.     pop .FontDirectory 1 index .knownget {
  213.             % Stack: font uniqueid knownname knownfont
  214.       dup /UniqueID get exch .pdfknownids 3 1 roll put
  215.     } if pop
  216.       } forall
  217.             % Now see if the UniqueID is known.
  218.       .pdfknownids 1 index .knownget {
  219.     exch pop true
  220.       } {            % Record the UniqueID as not registered.
  221.     .pdfknownids exch null put false
  222.       } ifelse
  223.     } ifelse
  224.   } {            % This font has no UniqueID.
  225.     false
  226.   } ifelse
  227.             % Stack: font knownfont -true- | font -false-
  228.   {
  229.     exch pop
  230.   } {
  231.     { dup /OrigFont .knownget not { exit } if exch pop } loop
  232.   } ifelse
  233. } .bind def
  234. /setvmthreshold where { pop 1000000 setvmthreshold } if
  235. /.pdfdoshow        % <string> <cxd> <cyd> <char> <axd> <ayd> .pdfdoshow
  236.             %   <bool>
  237.  { mark /String 8 2 roll
  238. %vmstatus pop =only pop (, ) print
  239.    currentpoint transform 7 array astore /Values exch
  240.    currentfont .findorigfont
  241.         % Pass the original font name.
  242.    dup /FontName get
  243.    /FontName exch 3 -1 roll
  244.         % Concatenate the "quotient" of the current FontMatrix
  245.         % and the FontMatrix of the original font.
  246.         % Be sure to include any translation.
  247.    /Matrix
  248.      exch /FontMatrix get matrix invertmatrix
  249.      currentfont /FontMatrix get 1 index concatmatrix
  250.      matrix currentmatrix dup 4 0 put dup 5 0 put dup concatmatrix
  251.    /Encoding currentfont /Encoding .knownget not { [] } if
  252.     % Make a reasonable guess at the base encoding.
  253.    /BaseEncoding StandardEncoding
  254. %vmstatus pop =only pop (, ) print
  255.    .dicttomark
  256.         % Set the clipping region and color in the output.
  257.         % This is another hack!
  258.    gsave newpath fill grestore
  259. %vmstatus pop =only pop (, ) print
  260.    /show .pdfputparams
  261. %vmstatus pop =only pop () = flush
  262.    dup type /booleantype eq
  263.     { pop pop true }
  264.     { dup /undefined eq
  265.        { cleartomark pop pop pop false }
  266.        { dup mark eq { /unknown /rangecheck } if
  267.      counttomark 4 add 1 roll cleartomark pop pop pop
  268.      /.pdfshow cvx exch signalerror
  269.        }
  270.       ifelse
  271.     }
  272.    ifelse
  273.  } .bind def
  274. /.pdfexecshow        % <proc> .pdfexecshow -
  275.  { matrix currentmatrix gsave nulldevice setmatrix
  276.    exec currentpoint grestore moveto
  277.  } .bind def
  278. /.pdfwrite?        % - .pdfwrite? <bool>
  279.  { currentdevice .devicename /pdfwrite eq
  280.    currentfont /FontType get 1 eq and
  281.  } .bind def
  282. % .pdfshow isn't an operator per se, but it still needs to be careful with
  283. % the stack so that the operators will have stack protection.
  284. /.pdfshow        % <string> <cx> <cy> <char> <ax> <ay> <showproc>
  285.             %   .pdfshow -
  286.  { 7 1 roll .pdfwrite?
  287.     { .pdfdoshow }
  288.     { 6 { pop } repeat false }
  289.    ifelse
  290.     { .pdfexecshow }
  291.     { exec }
  292.    ifelse
  293.  } .bind def
  294. /show
  295.  { dup 0 0 32 0 0 { show } .pdfshow
  296.  } .bind odef
  297. /ashow
  298.  { dup 0 0 32 6 index 6 index { ashow } .pdfshow
  299.  } .bind odef
  300. /widthshow
  301.  { 4 copy 4 -2 roll 4 -1 roll 0 0 { widthshow } .pdfshow
  302.  } .bind odef
  303. /awidthshow
  304.  { 6 copy 6 -2 roll 6 -3 roll { awidthshow } .pdfshow
  305.  } .bind odef
  306. /glyphshow where { pop } { (%END) .skipeof } ifelse
  307. /glyphshow
  308.  { .pdfwrite?
  309.     { currentfont /Encoding .knownget not { {} } if
  310.       0 1 2 index length 1 sub
  311.        {        % Stack: glyph encoding index
  312.      2 copy get 3 index eq { exch pop exch pop null exit } if pop
  313.        }
  314.       for null eq
  315.        { (X) dup 0 3 index put show pop }
  316.        { glyphshow }
  317.       ifelse
  318.     }
  319.     { glyphshow
  320.     }
  321.    ifelse
  322.  } .bind odef
  323. %END
  324. /.kshow1 {    % <index> <proc> <string> .kshow1
  325.   (X) dup 0 3 index 6 index get put show
  326.   2 index 1 index length 1 sub lt {
  327.     dup 3 index get exch 4 -1 roll 1 add get
  328.     3 -1 roll exec
  329.   } {
  330.     pop pop pop
  331.   } ifelse
  332. } .bind def
  333. /kshow {
  334.   .pdfwrite? {
  335.         % Construct a closure, and work character by character.
  336.     0 1 2 index length 1 sub 5 -2 roll
  337.     //.kshow1 /exec cvx 4 packedarray cvx for
  338.   } {
  339.     kshow
  340.   } ifelse
  341. } .bind odef
  342. % The remaining operators aren't implemented correctly.
  343. /xshow where {
  344.  pop /xshow { .pdfwrite? { 1 index show pop pop } { xshow } ifelse } .bind odef
  345. } if
  346. /yshow where {
  347.  pop /yshow { .pdfwrite? { 1 index show pop pop } { yshow } ifelse } .bind odef
  348. } if
  349. /xyshow where {
  350.  pop /xyshow { .pdfwrite? { 1 index show pop pop } { xyshow } ifelse } .bind odef
  351. } if
  352.